home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sm.zip / SOUNDS.PAS < prev    next >
Pascal/Delphi Source File  |  1989-08-19  |  26KB  |  932 lines
  1. unit Sounds;
  2.  
  3.  Interface
  4.       uses crt, dos;
  5.      var
  6.        A, C, D : Integer;
  7.        B, E : Boolean;
  8.  
  9.  procedure wr;
  10.  procedure s0;
  11.  procedure s1;
  12.  procedure s2;
  13.  procedure s3;
  14.  procedure s4;
  15.  procedure s5;
  16.  procedure s6;
  17.  procedure s7;
  18.  procedure s8;
  19.  procedure s9;
  20.  procedure s10;
  21.  procedure s11;
  22.  procedure s12;
  23.  procedure s13;
  24.  procedure s14;
  25.  procedure s15;
  26.  procedure s16;
  27.  procedure s17;
  28.  procedure s18;
  29.  procedure s19;
  30.  procedure s20;
  31.  procedure s21;
  32.  procedure s22;
  33.  procedure s23;
  34.  procedure s24;
  35.  procedure s25;
  36.  procedure s26;
  37.  procedure Taps;
  38.  procedure Sw;
  39.  procedure Swars;
  40.  procedure Yd;
  41.  procedure Od;
  42.  procedure Ld;
  43.  procedure Jb;
  44.  procedure row;
  45.  procedure march;
  46.  
  47.  Implementation
  48.   procedure wr;
  49.     begin
  50.       ClrScr;
  51.       InsLine;
  52.       InsLine;
  53.     end;
  54.  procedure S0;
  55.    begin
  56.      A:=1;
  57.      for A:=1 to 10 do
  58.         begin
  59.           D:=1;
  60.           while D<1900 do
  61.              begin
  62.                Sound(3000-D); Delay(33); NoSound;
  63.                D:=D+600;
  64.              end;
  65.           end;
  66.    end;
  67.  procedure S1;
  68.    begin
  69.      A:=1;
  70.      for A:=1 to 10 do
  71.        begin
  72.          D:=45;
  73.          while D<900 do
  74.            begin
  75.              Sound(99+D); Delay(33); NoSound;
  76.              D:=D+300
  77.            end;
  78.        end;
  79.    end;
  80.  procedure S2;
  81.    begin
  82.      A:=1;
  83.      for A:=1 to 5 do
  84.         begin
  85.           D:=450;
  86.           while D>1 do
  87.             begin
  88.               Sound(99+D); Delay(30); NoSound;
  89.               D:=D-80;
  90.             end;
  91.         end;
  92.    end;
  93.  procedure S3;
  94.    begin
  95.      A:=1;
  96.      for A:=1 to 10 do
  97.         begin
  98.           D:=1;
  99.           while D<300 do
  100.             begin
  101.               Sound(200+D); Delay(34); NoSound;
  102.               D:=D+50;
  103.             end;
  104.         end;
  105.    end;
  106.  procedure S4;
  107.    begin
  108.      A:=1;
  109.      for A:=1 to 15 do
  110.         begin
  111.           D:=1;
  112.           while D<200 do
  113.             begin
  114.               Sound(800+d); Delay(10); NoSound;
  115.               D:=d+80;
  116.             end;
  117.         end;
  118.    end;
  119.  procedure S5;
  120.    begin
  121.      A:=1;
  122.      for A:=1 to 15 do
  123.         begin
  124.           D:=1;
  125.           while D<450 do
  126.             begin
  127.               Sound(400+d); Delay(30); NoSound;
  128.               D:=d+200;
  129.             end;
  130.         end;
  131.    end;
  132.  procedure S6;
  133.    begin
  134.      A:=1;
  135.      for A:=1 to 5 do
  136.         begin
  137.           Sound(700); Delay(300); NoSound;
  138.           Sound(500); Delay(300); NoSound;
  139.         end;
  140.    end;
  141.  procedure S7;
  142.    begin
  143.      A:=1;
  144.      for A:=1 to 10 do
  145.         begin
  146.           D:=18;
  147.           while D<2500 do
  148.             begin
  149.               Sound(D); Delay(A); NoSound;
  150.               D:=D+100;
  151.             end;
  152.         end;
  153.    end;
  154.  procedure S8;
  155.    begin
  156.      A:=1;
  157.      for A:=1 to 5 do
  158.         begin
  159.           D:=9;
  160.           while D<2500 do
  161.             begin
  162.               Sound(D); Delay(a); NoSound;
  163.               D:=D+10;
  164.             end;
  165.         end;
  166.    end;
  167.  procedure S9;
  168.    begin
  169.      A:=1;
  170.      for A:=1 to 5 do
  171.         begin
  172.           D:=9;
  173.           while D<10000 do
  174.             begin
  175.               Sound(D); Delay(5); NoSound;
  176.               D:=D+100;
  177.             end;
  178.           D:=10000;
  179.           while D>1 do
  180.             begin
  181.               Sound(D); Delay(3); NoSound;
  182.               D:=D-100;
  183.             end;
  184.         end;
  185.     end;
  186.  procedure s10;
  187.       begin
  188.         A:=1;
  189.         for A:=1 to 4 do
  190.         begin
  191.           Sound(523); Delay(10); NoSound;
  192.           Sound(587); Delay(10); NoSound;
  193.           Sound(659); Delay(10); NoSound;
  194.           Sound(698); Delay(100); NoSound;
  195.           Sound(783); Delay(10); NoSound;
  196.           Sound(880); Delay(10); NoSound;
  197.           Sound(987); Delay(10); NoSound;
  198.           Sound(1046); Delay(500); NoSound;
  199.           Delay(100);
  200.           Sound(1046); Delay(10); NoSound;
  201.           Sound(987); Delay(10); NoSound;
  202.           Sound(880); Delay(10); NoSound;
  203.           Sound(783); Delay(10); NoSound;
  204.           Sound(698); Delay(100); NoSound;
  205.           Sound(659); Delay(10); NoSound;
  206.           Sound(587); Delay(10); NoSound;
  207.           Sound(523); Delay(500); NoSound;
  208.         end;
  209.       end;
  210.  procedure s11;
  211.      begin
  212.        Delay(100);
  213.        B := False;
  214.        A := 10;
  215.        repeat
  216.        C := A+10; A := C;
  217.        Sound(C); Delay(10); NoSound;
  218.        if C >= 5000 then B:= true;
  219.        until B;
  220.        Sound(19); Delay (50); Sound(2000); Delay(50);
  221.        Sound(29); Delay (40); Sound(1800); Delay(40);
  222.        Sound(39); Delay (30); Sound(1600); Delay(30);
  223.        Sound(49); Delay (20); Sound(1400); Delay(20);
  224.        Sound(59); Delay (10); Sound(1200); Delay(10);
  225.        Sound(69); Delay (20); Sound(1000); Delay(20);
  226.        Sound(79); Delay (30); Sound(900); Delay(30);
  227.        Sound(89); Delay (40); Sound(800); Delay(40);
  228.        Sound(100); Delay(50); Sound(700); Delay(50);  NoSound;
  229.     end;
  230.  procedure s12;
  231.       begin
  232.       Sound(523); Delay(100); NoSound;
  233.       Sound(587); Delay(100); NoSound;
  234.       Sound(659); Delay(100); NoSound;
  235.       Sound(698); Delay(100); NoSound;
  236.       Sound(783); Delay(100); NoSound;
  237.       Sound(880); Delay(100); NoSound;
  238.       Sound(987); Delay(100); NoSound;
  239.       Sound(1046); Delay(100); NoSound;
  240.       Delay(100);
  241.       Sound(1046); Delay(100); NoSound;
  242.       Sound(987); Delay(100); NoSound;
  243.       Sound(880); Delay(100); NoSound;
  244.       Sound(783); Delay(100); NoSound;
  245.       Sound(698); Delay(100); NoSound;
  246.       Sound(659); Delay(100); NoSound;
  247.       Sound(587); Delay(100); NoSound;
  248.       Sound(523); Delay(100); NoSound;
  249.     end;
  250.  procedure S13;
  251.    begin
  252.      D:=10000;
  253.      while D>19 do
  254.        begin
  255.          Sound(d); Delay(5); NoSound;
  256.          D:=D-10;
  257.        end;
  258.     end;
  259.  procedure S14;
  260.    begin
  261.      for A:=1 to 5 do
  262.      begin
  263.        D:=20000;
  264.        while D>19 do
  265.          begin
  266.            Sound(d); Delay(1); NoSound;
  267.            D:=D-100;
  268.          end;
  269.       end;
  270.    end;
  271.  procedure S15;
  272.    begin
  273.      D:=20000;
  274.      while D>19 do
  275.        begin
  276.          Sound(d); Delay(1); NoSound;
  277.          D:=D-10;
  278.        end;
  279.     end;
  280.  procedure S16;
  281.    begin
  282.      for A:=1 to 5 do
  283.      begin
  284.        D:=20000;
  285.        while D>19 do
  286.          begin
  287.            Sound(D); Delay(2); NoSound;
  288.            D:=D-200;
  289.          end;
  290.       end;
  291.    end;
  292.  procedure S17;
  293.    begin
  294.      for A:=1 to 5 do
  295.      begin
  296.        D:=5000;
  297.        while D>19 do
  298.          begin
  299.            Sound(D); Delay(5); NoSound;
  300.            D:=d-50;
  301.          end;
  302.       end;
  303.    end;
  304.  procedure S18;
  305.    begin
  306.      for A:=1 to 10 do
  307.      begin
  308.        D:=19;
  309.        while D<20000 do
  310.          begin
  311.            Sound(D); Delay(5); NoSound;
  312.            D:=d+1000;
  313.          end;
  314.       end;
  315.    end;
  316.  procedure S19;
  317.    begin
  318.      for A:=1 to 5 do
  319.      begin
  320.        D:=19;
  321.        while D<20000 do
  322.          begin
  323.            Sound(D); Delay(20); NoSound;
  324.            D:=d+1000;
  325.          end;
  326.       end;
  327.    end;
  328.  procedure S20;
  329.    begin
  330.      for A:=1 to 5 do
  331.      begin
  332.        D:=19;
  333.        while D<10000 do
  334.          begin
  335.            Sound(D); Delay(5); NoSound;
  336.            D:=d+250;
  337.          end;
  338.       end;
  339.    end;
  340.  procedure S21;
  341.    begin
  342.      A:=1;
  343.      for A:=1 to 10 do
  344.         begin
  345.           D:=9;
  346.           while D<1000 do
  347.             begin
  348.               Sound(D); Delay(10); NoSound;
  349.               D:=D+100;
  350.             end;
  351.           D:=1000;
  352.           while D>1 do
  353.             begin
  354.               Sound(D); Delay(10); NoSound;
  355.               D:=D-100;
  356.             end;
  357.         end;
  358.     end;
  359.  procedure S22;
  360.    begin
  361.      A:=1;
  362.      for A:=1 to 1 do
  363.         begin
  364.           D:=9;
  365.           while D<1000 do
  366.             begin
  367.               Sound(D); Delay(5); NoSound;
  368.               D:=D+5;
  369.             end;
  370.           while D>1 do
  371.             begin
  372.               Sound(D); Delay(9); NoSound;
  373.               D:=D-5;
  374.             end;
  375.         end;
  376.     end;
  377.  procedure S23;
  378.    begin
  379.      A:=10;
  380.      for A:=10 to 991 do
  381.         begin
  382.           D:=9;
  383.           while D<1000 do
  384.             begin
  385.               Sound(d); Delay(1); NoSound;
  386.               D:=D+A;
  387.             end;
  388.           D:=1000;
  389.           while D>1 do
  390.             begin
  391.               Sound(D); Delay(1); NoSound;
  392.               D:=D-A;
  393.             end;
  394.         end;
  395.     end;
  396.  procedure S24;
  397.    begin
  398.      A:=1;
  399.      for A:=1 to 5 do
  400.         begin
  401.           D:=9;
  402.           while D<1000 do
  403.             begin
  404.               Sound(D); Delay(21); NoSound;
  405.               D:=D+34;
  406.             end;
  407.           D:=1000;
  408.           while D>1 do
  409.             begin
  410.               Sound(D); Delay(31); NoSound;
  411.               D:=D-100;
  412.             end;
  413.         end;
  414.     end;
  415.  procedure S25;
  416.    begin
  417.      A:=1;
  418.      for A:=1 to 5 do
  419.         begin
  420.           D:=9;
  421.           while D<1000 do
  422.             begin
  423.               Sound(D); Delay(11); NoSound;
  424.               D:=D+100;
  425.             end;
  426.          end;
  427.         A:=1;
  428.       for A:=1 to 5 do
  429.          begin
  430.           D:=1000;
  431.           while D>1 do
  432.             begin
  433.               Sound(D); Delay(11); NoSound;
  434.               D:=D-100;
  435.             end;
  436.         end;
  437.         D:=1000;
  438.         while D>1 do
  439.             begin
  440.               Sound(D); Delay(21); NoSound;
  441.               D:=D-10;
  442.             end;
  443.        A:=1;
  444.       for A:=1 to 100 do
  445.          begin
  446.              Sound(random(200)+18); Delay(11); NoSound;
  447.              Sound(random(1200)+18); Delay(11); NoSound;
  448.           end;
  449.       end;
  450.  procedure s26;
  451.     begin
  452.        A:=1;
  453.        for A:=1 to 100 do
  454.        begin
  455.         Sound(19);Delay(a);
  456.         Sound(37);Delay(1);
  457.         Nosound;
  458.        end
  459.     end;
  460.  procedure Taps;
  461.     begin
  462.       if E then
  463.          begin
  464.           wr;
  465.           write('Taps');
  466.          end;
  467.       Sound(523); Delay(250); NoSound;
  468.       Sound(523); Delay(250); NoSound;
  469.       Sound(698); Delay(750); NoSound;
  470.       Sound(523); Delay(250); NoSound;
  471.       Sound(698); Delay(250); NoSound;
  472.       Sound(880); Delay(750); NoSound;
  473.       Sound(523); Delay(250); NoSound;
  474.       Sound(698); Delay(250); NoSound;
  475.       Sound(880); Delay(500); NoSound;
  476.       Sound(523); Delay(250); NoSound;
  477.       Sound(698); Delay(250); NoSound;
  478.       Sound(880); Delay(500); NoSound;
  479.       Sound(523); Delay(250); NoSound;
  480.       Sound(698); Delay(250); NoSound;
  481.       Sound(880); Delay(500); NoSound;
  482.       Sound(698); Delay(250); NoSound;
  483.       Sound(880); Delay(250); NoSound;
  484.       Sound(1046); Delay(1000); NoSound;
  485.       Sound(880); Delay(250); NoSound;
  486.       Sound(698); Delay(250); NoSound;
  487.       Sound(523); Delay(1000); NoSound;Delay(15);
  488.       Sound(523); Delay(500); NoSound;Delay(15);
  489.       Sound(523); Delay(250); NoSound;
  490.       Sound(698); Delay(2000); NoSound;
  491.    end;
  492.  procedure Sw;
  493.    begin
  494.     if E then
  495.         begin
  496.          wr;
  497.          write('A Small World');
  498.         end;
  499.     Sound(784); Delay(750); NoSound;
  500.     Sound(783); Delay(250); NoSound;
  501.     Sound(987); Delay(500); NoSound;
  502.     Sound(784); Delay(500); NoSound;
  503.     Sound(880); Delay(750); NoSound;
  504.     Sound(880); Delay(250); NoSound;Delay(10);
  505.     Sound(880); Delay(1000); NoSound;Delay(10);
  506.     Sound(880); Delay(750); NoSound;
  507.     Sound(880); Delay(250); NoSound;
  508.     Sound(1046); Delay(500); NoSound;
  509.     Sound(880); Delay(500); NoSound;
  510.     Sound(987); Delay(750); NoSound;
  511.     Sound(987); Delay(250); NoSound;Delay(10);
  512.     Sound(987); Delay(1000); NoSound;Delay(10);
  513.     Sound(987); Delay(750); NoSound;
  514.     Sound(987); Delay(250); NoSound;
  515.     Sound(1174); Delay(500); NoSound;
  516.     Sound(987); Delay(500); NoSound;
  517.     Sound(523); Delay(750); NoSound;
  518.     Sound(523); Delay(250); NoSound;Delay(10);
  519.     Sound(523); Delay(500); NoSound;
  520.     Sound(987); Delay(250); NoSound;
  521.     Sound(880); Delay(250); NoSound;
  522.     Sound(587); Delay(500); NoSound;
  523.     Sound(739); Delay(500); NoSound;
  524.     Sound(784); Delay(1000); NoSound;
  525.    end;
  526.   procedure Swars;
  527.    begin
  528.     if E then
  529.         begin
  530.          wr;
  531.          write('Star Wars');
  532.         end;
  533.     A:=1;
  534.     C:=0;
  535.     for A:=1 to 2 do
  536.     begin
  537.       Sound(523); Delay(500+C); NoSound;
  538.       Sound(783); Delay(250+C); NoSound;
  539.       Sound(698); Delay(100+C); NoSound;
  540.       Sound(659); Delay(100+C); NoSound;
  541.       Sound(587); Delay(100+C); NoSound;
  542.       Sound(1046); Delay(500+C); NoSound;
  543.       Sound(783); Delay(250+C); NoSound;
  544.       Sound(698); Delay(100+C); NoSound;
  545.       Sound(659); Delay(100+C); NoSound;
  546.       Sound(587); Delay(100+C); NoSound;
  547.       Sound(1046); Delay(500+C); NoSound;
  548.       Sound(783); Delay(250+C); NoSound;
  549.       Sound(698); Delay(100+C); NoSound;delay(10);
  550.       Sound(659); Delay(100+C); NoSound;delay(10);
  551.       Sound(698); Delay(100+C); NoSound;
  552.       Sound(587); Delay(750+C); NoSound;
  553.       C:=C+100
  554.     end;
  555.  end;
  556.   procedure Yd;
  557.    begin
  558.     if E then
  559.         begin
  560.          wr;
  561.          write('Yankee Doodle');
  562.         end;
  563.     Sound(784); Delay(250); NoSound;
  564.     Sound(783); Delay(250); NoSound;
  565.     Sound(880); Delay(250); NoSound;
  566.     Sound(987); Delay(250); NoSound;
  567.     Sound(784); Delay(250); NoSound;
  568.     Sound(987); Delay(250); NoSound;
  569.     Sound(880); Delay(250); NoSound;
  570.     Sound(587); Delay(250); NoSound;
  571.     Sound(783); Delay(250); NoSound;
  572.     Sound(784); Delay(250); NoSound;
  573.     Sound(880); Delay(250); NoSound;
  574.     Sound(987); Delay(250); NoSound;
  575.     Sound(783); Delay(500); NoSound;
  576.     Sound(739); Delay(500); NoSound;
  577.     Sound(783); Delay(250); NoSound;
  578.     Sound(784); Delay(250); NoSound;
  579.     Sound(880); Delay(250); NoSound;
  580.     Sound(987); Delay(250); NoSound;
  581.     Sound(523); Delay(250); NoSound;
  582.     Sound(987); Delay(250); NoSound;
  583.     Sound(880); Delay(250); NoSound;
  584.     Sound(784); Delay(250); NoSound;
  585.     Sound(739); Delay(250); NoSound;
  586.     Sound(587); Delay(250); NoSound;
  587.     Sound(659); Delay(250); NoSound;
  588.     Sound(739); Delay(250); NoSound;
  589.     Sound(783); Delay(500); NoSound;
  590.     Sound(784); Delay(500); NoSound;
  591.   end;
  592.  procedure Od;
  593.    begin
  594.     if E then
  595.         begin
  596.          wr;
  597.          write('Ode to Joy');
  598.         end;
  599.     Sound(987); Delay(250); NoSound;
  600.     Sound(987); Delay(250); NoSound;
  601.     Sound(1046); Delay(250); NoSound;
  602.     Sound(1174); Delay(250); NoSound;
  603.     Sound(1174); Delay(250); NoSound;
  604.     Sound(1046); Delay(250); NoSound;
  605.     Sound(987); Delay(250); NoSound;
  606.     Sound(880); Delay(250); NoSound;
  607.     Sound(783); Delay(250); NoSound;
  608.     Sound(784); Delay(250); NoSound;
  609.     Sound(880); Delay(250); NoSound;
  610.     Sound(987); Delay(250); NoSound;
  611.     Sound(987); Delay(500); NoSound;
  612.     Sound(880); Delay(500); NoSound;
  613.     Sound(987); Delay(250); NoSound;
  614.     Sound(987); Delay(250); NoSound;
  615.     Sound(1046); Delay(250); NoSound;
  616.     Sound(1174); Delay(250); NoSound;
  617.     Sound(1174); Delay(250); NoSound;
  618.     Sound(1046); Delay(250); NoSound;
  619.     Sound(987); Delay(250); NoSound;
  620.     Sound(880); Delay(250); NoSound;
  621.     Sound(783); Delay(250); NoSound;
  622.     Sound(784); Delay(250); NoSound;
  623.     Sound(880); Delay(250); NoSound;
  624.     Sound(987); Delay(250); NoSound;
  625.     Sound(880); Delay(500); NoSound;
  626.     Sound(783); Delay(500); NoSound;
  627.     Sound(880); Delay(500); NoSound;
  628.     Sound(987); Delay(250); NoSound;
  629.     Sound(783); Delay(250); NoSound;
  630.     Sound(880); Delay(250); NoSound;
  631.     Sound(1046); Delay(250); NoSound;
  632.     Sound(987); Delay(250); NoSound;
  633.     Sound(784); Delay(250); NoSound;
  634.     Sound(987); Delay(250); NoSound;
  635.     Sound(880); Delay(250); NoSound;
  636.     Sound(1046); Delay(250); NoSound;
  637.     Sound(987); Delay(250); NoSound;
  638.     Sound(880); Delay(250); NoSound;
  639.     Sound(783); Delay(250); NoSound;
  640.     Sound(880); Delay(250); NoSound;
  641.     Sound(880); Delay(500); NoSound;
  642.     Sound(987); Delay(250); NoSound;
  643.     Sound(987); Delay(250); NoSound;
  644.     Sound(1046); Delay(250); NoSound;
  645.     Sound(1174); Delay(250); NoSound;
  646.     Sound(1174); Delay(250); NoSound;
  647.     Sound(1046); Delay(250); NoSound;
  648.     Sound(987); Delay(250); NoSound;
  649.     Sound(880); Delay(250); NoSound;
  650.     Sound(783); Delay(250); NoSound;
  651.     Sound(784); Delay(250); NoSound;
  652.     Sound(880); Delay(250); NoSound;
  653.     Sound(987); Delay(250); NoSound;
  654.     Sound(880); Delay(500); NoSound;
  655.     Sound(783); Delay(250); NoSound;
  656.     Sound(784); Delay(250); NoSound;
  657.   end;
  658.  procedure Ld;
  659.    begin
  660.     if E then
  661.         begin
  662.          wr;
  663.          write('This Land Is Your Land');
  664.         end;
  665.     Sound(783); Delay(250); NoSound;
  666.     Sound(880); Delay(250); NoSound;
  667.     Sound(987); Delay(250); NoSound;
  668.     Sound(1046); Delay(500); NoSound;
  669.     Sound(1046); Delay(750); NoSound;delay(10);
  670.     Sound(1046); Delay(250); NoSound;
  671.     Sound(784); Delay(250); NoSound;
  672.     Sound(880); Delay(250); NoSound;
  673.     Sound(987); Delay(500); NoSound;
  674.     Sound(987); Delay(750); NoSound;
  675.     Sound(587); Delay(250); NoSound;
  676.     Sound(783); Delay(250); NoSound;
  677.     Sound(880); Delay(500); NoSound;
  678.     Sound(880); Delay(750); NoSound;delay(10);
  679.     Sound(880); Delay(125); NoSound;
  680.     Sound(880); Delay(125); NoSound;
  681.     Sound(784); Delay(250); NoSound;
  682.     Sound(880); Delay(250); NoSound;
  683.     Sound(987); Delay(500); NoSound;
  684.     Sound(987); Delay(750); NoSound;
  685.     Sound(783); Delay(125); NoSound;
  686.     Sound(784); Delay(125); NoSound;
  687.     Sound(880); Delay(250); NoSound;
  688.     Sound(987); Delay(250); NoSound;
  689.     Sound(523); Delay(500); NoSound;
  690.     Sound(523); Delay(750); NoSound;delay(10);
  691.     Sound(523); Delay(150); NoSound;
  692.     Sound(523); Delay(150); NoSound;
  693.     Sound(783); Delay(250); NoSound;
  694.     Sound(880); Delay(250); NoSound;
  695.     Sound(987); Delay(500); NoSound;
  696.     Sound(987); Delay(1000); NoSound;
  697.     Sound(880); Delay(150); NoSound;
  698.     Sound(880); Delay(250); NoSound;
  699.     Sound(880); Delay(250); NoSound;
  700.     Sound(739); Delay(250); NoSound;
  701.     Sound(587); Delay(250); NoSound;
  702.     Sound(739); Delay(250); NoSound;
  703.     Sound(880); Delay(250); NoSound;
  704.     Sound(880); Delay(250); NoSound;
  705.     Sound(784); Delay(1000); NoSound;
  706.     end;
  707.  procedure Jb;
  708.    begin
  709.     if E then
  710.         begin
  711.          wr;
  712.          write('Jingle Bells');
  713.         end;
  714.     Sound(987); Delay(250); NoSound;
  715.     Sound(987); Delay(250); NoSound;
  716.     Sound(987); Delay(500); NoSound;delay(10);
  717.     Sound(987); Delay(250); NoSound;
  718.     Sound(987); Delay(250); NoSound;
  719.     Sound(987); Delay(500); NoSound;delay(10);
  720.     Sound(987); Delay(250); NoSound;
  721.     Sound(587); Delay(250); NoSound;
  722.     Sound(783); Delay(250); NoSound;delay(10);
  723.     Sound(880); Delay(250); NoSound;
  724.     Sound(987); Delay(1000); NoSound;
  725.     Sound(523); Delay(250); NoSound;
  726.     Sound(523); Delay(250); NoSound;
  727.     Sound(523); Delay(250); NoSound;
  728.     Sound(523); Delay(250); NoSound;delay(10);
  729.     Sound(523); Delay(250); NoSound;
  730.     Sound(987); Delay(250); NoSound;
  731.     Sound(987); Delay(250); NoSound;
  732.     Sound(987); Delay(125); NoSound;
  733.     Sound(987); Delay(125); NoSound;delay(10);
  734.     Sound(987); Delay(250); NoSound;
  735.     Sound(880); Delay(250); NoSound;
  736.     Sound(880); Delay(250); NoSound;
  737.     Sound(987); Delay(250); NoSound;
  738.     Sound(880); Delay(500); NoSound;
  739.     Sound(587); Delay(500); NoSound;
  740.     Sound(987); Delay(250); NoSound;
  741.     Sound(987); Delay(250); NoSound;
  742.     Sound(987); Delay(500); NoSound;delay(10);
  743.     Sound(987); Delay(250); NoSound;
  744.     Sound(987); Delay(250); NoSound;
  745.     Sound(987); Delay(500); NoSound;delay(10);
  746.     Sound(987); Delay(250); NoSound;
  747.     Sound(587); Delay(250); NoSound;
  748.     Sound(783); Delay(250); NoSound;
  749.     Sound(880); Delay(250); NoSound;
  750.     Sound(987); Delay(1000); NoSound;
  751.     Sound(523); Delay(250); NoSound;
  752.     Sound(523); Delay(250); NoSound;
  753.     Sound(523); Delay(250); NoSound;
  754.     Sound(523); Delay(250); NoSound;delay(10);
  755.     Sound(523); Delay(250); NoSound;
  756.     Sound(987); Delay(250); NoSound;
  757.     Sound(987); Delay(250); NoSound;
  758.     Sound(987); Delay(250); NoSound;
  759.     Sound(987); Delay(250); NoSound;delay(10);
  760.     Sound(587); Delay(250); NoSound;
  761.     Sound(587); Delay(250); NoSound;
  762.     Sound(523); Delay(250); NoSound;
  763.     Sound(880); Delay(250); NoSound;
  764.     Sound(783); Delay(1000); NoSound;
  765.   end;
  766.  procedure Row;
  767.    begin
  768.     if E then
  769.         begin
  770.          wr;
  771.          write('Lightly Row');
  772.         end;
  773.     Sound(587); Delay(250); NoSound;
  774.     Sound(987); Delay(250); NoSound;
  775.     Sound(987); Delay(500); NoSound;
  776.     Sound(523); Delay(250); NoSound;
  777.     Sound(880); Delay(250); NoSound;
  778.     Sound(880); Delay(500); NoSound;
  779.     Sound(783); Delay(250); NoSound;
  780.     Sound(880); Delay(250); NoSound;
  781.     Sound(987); Delay(250); NoSound;
  782.     Sound(523); Delay(250); NoSound;
  783.     Sound(587); Delay(250); NoSound;
  784.     Sound(587); Delay(250); NoSound;
  785.     Sound(587); Delay(500); NoSound;delay(10);
  786.     Sound(587); Delay(250); NoSound;
  787.     Sound(987); Delay(250); NoSound;
  788.     Sound(987); Delay(500); NoSound;
  789.     Sound(587); Delay(250); NoSound;
  790.     Sound(987); Delay(250); NoSound;
  791.     Sound(987); Delay(500); NoSound;
  792.     Sound(523); Delay(250); NoSound;
  793.     Sound(880); Delay(250); NoSound;
  794.     Sound(880); Delay(500); NoSound;
  795.     Sound(783); Delay(250); NoSound;
  796.     Sound(987); Delay(250); NoSound;
  797.     Sound(587); Delay(250); NoSound;
  798.     Sound(587); Delay(250); NoSound;
  799.     Sound(987); Delay(1000); NoSound;
  800.     Sound(880); Delay(250); NoSound;
  801.     Sound(880); Delay(250); NoSound;
  802.     Sound(880); Delay(250); NoSound;
  803.     Sound(880); Delay(250); NoSound;delay(10);
  804.     Sound(880); Delay(250); NoSound;
  805.     Sound(987); Delay(250); NoSound;
  806.     Sound(523); Delay(500); NoSound;
  807.     Sound(987); Delay(250); NoSound;
  808.     Sound(987); Delay(250); NoSound;
  809.     Sound(987); Delay(250); NoSound;
  810.     Sound(987); Delay(250); NoSound;delay(10);
  811.     Sound(987); Delay(250); NoSound;
  812.     Sound(523); Delay(250); NoSound;
  813.     Sound(587); Delay(500); NoSound;delay(10);
  814.     Sound(587); Delay(250); NoSound;
  815.     Sound(987); Delay(250); NoSound;
  816.     Sound(987); Delay(500); NoSound;
  817.     Sound(523); Delay(250); NoSound;
  818.     Sound(880); Delay(250); NoSound;
  819.     Sound(880); Delay(500); NoSound;
  820.     Sound(783); Delay(250); NoSound;
  821.     Sound(987); Delay(250); NoSound;
  822.     Sound(587); Delay(250); NoSound;
  823.     Sound(587); Delay(250); NoSound;
  824.     Sound(783); Delay(1000); NoSound;
  825.    end;
  826.  procedure March;
  827.    begin
  828.     if E then
  829.         begin
  830.          wr;
  831.          write('Little March');
  832.         end;
  833.     Sound(783); Delay(250); NoSound;
  834.     Sound(783); Delay(125); NoSound;
  835.     Sound(987); Delay(125); NoSound;
  836.     Sound(880); Delay(500); NoSound;
  837.     Sound(783); Delay(250); NoSound;
  838.     Sound(783); Delay(125); NoSound;
  839.     Sound(987); Delay(125); NoSound;
  840.     Sound(880); Delay(500); NoSound;
  841.     Sound(987); Delay(250); NoSound;
  842.     Sound(523); Delay(250); NoSound;
  843.     Sound(1174); Delay(250); NoSound;
  844.     Sound(523); Delay(250); NoSound;
  845.     Sound(987); Delay(250); NoSound;
  846.     Sound(987); Delay(125); NoSound;
  847.     Sound(523); Delay(125); NoSound;
  848.     Sound(880); Delay(500); NoSound;
  849.     Sound(783); Delay(250); NoSound;
  850.     Sound(783); Delay(125); NoSound;
  851.     Sound(987); Delay(125); NoSound;
  852.     Sound(880); Delay(500); NoSound;
  853.     Sound(783); Delay(250); NoSound;
  854.     Sound(783); Delay(125); NoSound;
  855.     Sound(987); Delay(125); NoSound;
  856.     Sound(880); Delay(500); NoSound;
  857.     Sound(987); Delay(125); NoSound;
  858.     Sound(523); Delay(125); NoSound;
  859.     Sound(1174); Delay(250); NoSound;
  860.     Sound(523); Delay(125); NoSound;
  861.     Sound(987); Delay(125); NoSound;
  862.     Sound(880); Delay(250); NoSound;
  863.     Sound(783); Delay(250); NoSound;
  864.     Sound(783); Delay(250); NoSound;delay(10);
  865.     Sound(783); Delay(250); NoSound;
  866.     delay(1000);
  867.     Sound(783); Delay(500); NoSound;
  868.     Sound(587); Delay(225); NoSound;
  869.     Sound(587); Delay(250); NoSound;
  870.     Sound(783); Delay(500); NoSound;
  871.     Sound(587); Delay(250); NoSound;
  872.     Sound(587); Delay(250); NoSound;
  873.     Sound(783); Delay(250); NoSound;
  874.     Sound(783); Delay(250); NoSound;delay(10);
  875.     Sound(783); Delay(250); NoSound;
  876.     Sound(783); Delay(250); NoSound;delay(10);
  877.     Sound(783); Delay(250); NoSound;
  878.     Sound(783); Delay(250); NoSound;
  879.     Sound(587); Delay(500); NoSound;
  880.     Sound(783); Delay(500); NoSound;
  881.     Sound(587); Delay(225); NoSound;
  882.     Sound(587); Delay(250); NoSound;
  883.     Sound(783); Delay(500); NoSound;
  884.     Sound(587); Delay(250); NoSound;
  885.     Sound(587); Delay(250); NoSound;
  886.     Sound(783); Delay(250); NoSound;
  887.     Sound(783); Delay(250); NoSound;
  888.     Sound(587); Delay(250); NoSound;
  889.     Sound(587); Delay(250); NoSound;
  890.     Sound(783); Delay(250); NoSound;
  891.     Sound(783); Delay(250); NoSound;delay(10);
  892.     Sound(783); Delay(250); NoSound;
  893.     delay(1000);
  894.     Sound(783); Delay(250); NoSound;
  895.     Sound(783); Delay(125); NoSound;
  896.     Sound(987); Delay(125); NoSound;
  897.     Sound(880); Delay(500); NoSound;
  898.     Sound(783); Delay(250); NoSound;
  899.     Sound(783); Delay(125); NoSound;
  900.     Sound(987); Delay(125); NoSound;
  901.     Sound(880); Delay(500); NoSound;
  902.     Sound(987); Delay(250); NoSound;
  903.     Sound(523); Delay(250); NoSound;
  904.     Sound(1174); Delay(250); NoSound;
  905.     Sound(523); Delay(250); NoSound;
  906.     Sound(987); Delay(250); NoSound;
  907.     Sound(987); Delay(125); NoSound;
  908.     Sound(523); Delay(125); NoSound;
  909.     Sound(880); Delay(500); NoSound;
  910.     Sound(783); Delay(250); NoSound;
  911.     Sound(783); Delay(125); NoSound;
  912.     Sound(987); Delay(125); NoSound;
  913.     Sound(880); Delay(500); NoSound;
  914.     Sound(783); Delay(250); NoSound;
  915.     Sound(783); Delay(125); NoSound;
  916.     Sound(987); Delay(125); NoSound;
  917.     Sound(880); Delay(500); NoSound;
  918.     Sound(987); Delay(125); NoSound;
  919.     Sound(523); Delay(125); NoSound;
  920.     Sound(1174); Delay(250); NoSound;
  921.     Sound(523); Delay(125); NoSound;
  922.     Sound(987); Delay(125); NoSound;
  923.     Sound(880); Delay(250); NoSound;
  924.     Sound(783); Delay(250); NoSound;
  925.     Sound(783); Delay(250); NoSound;delay(10);
  926.     Sound(783); Delay(250); NoSound;
  927.    end;
  928.  
  929. begin
  930.   E:=False;
  931. end.
  932.